home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 September / Macworld (1998-09).dmg / Serious Demos / DesignWorks 4.0.1 Demo PPC / Design Kits / PCB Shared Items / Scripts / PCB Pkg Script < prev    next >
Encoding:
Text File  |  1997-05-26  |  860 b   |  34 lines  |  [TEXT/ttxt]
  1. {
  2.   Copyright 1997 by Capilano Computing Systems Ltd.
  3.  
  4.   Script to prompt for a package code for the selected devices.
  5.   First, turn off report generation.
  6. }
  7. $REPORTOFF
  8. $PROGRESS $OFF
  9. {
  10.   Find selected devices and pretend they're sorted so we can merge all values
  11.   in the package field into one.
  12. }
  13. $FIND $DEVICES $SELECTED
  14. $SORT $DEVICES $RAW
  15. $COMBDEVSON
  16. {
  17.   If nothing's selected, quit
  18. }
  19. $IF($EQ($DEVCOUNT, 0))
  20. $ALERT1(No devices are selected!)
  21. $ABORT
  22. $END
  23. {
  24.   If we have more than one value in the selected devices, use an empty initial value
  25. }
  26. $DEVICES$SETVAR(_GPCB_Pkg, $IF($EQ($COUNTVALUES(&Package), 1))&Package$END)
  27. {
  28.   Put up a prompt box.  Note that we abort if the user presses Cancel
  29. }
  30. $SETVAR(_GPCB_Pkg, $PROMPT2(Enter package code for selected devices, &_GPCB_Pkg))
  31. {
  32.   Set the package code in all devices.
  33. }
  34. $DEVICES$SETATTR(Package, &_GPCB_Pkg)